(fortran-blink-match): Use `blink-matching-delay'.

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 0d9921fcd7b4f472d0d8ff19df1eb7c2c7da3c04..79853cb127bf67ab5a333f4db6cad656a6b5a365 100644 (file)
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -1251,7 +1251,7 @@ Use function FIND-BEGIN to match it."
       (if message
           (message "%s" message)
         (goto-char matching)
-        (sit-for 1)
+        (sit-for blink-matching-delay)
         (goto-char end-point)))))
 
 (defun fortran-blink-matching-if ()